      MODULE employv2kp_c5
      USE employv2kp_c1
      CONTAINS
      SUBROUTINE SSAL1C(CSNO,MMNST,SSZ,ERRMES)
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSAL1C')
      INTEGER CSNO,MMNST,SSZ(MMNST),ASTAT
      LOGICAL INCFLG
      REAL INCFRL
      COMMON /TGINCF/ INCFLG,INCFRL
      ASTAT=0
      IF(CSNO.EQ.1) THEN
      ALLOCATE(C00001(1),STAT=ASTAT)
      IF(INCFLG) C00001=INCFRL
      ELSE IF(CSNO.EQ.2) THEN
      ALLOCATE(C00002(1),STAT=ASTAT)
      IF(INCFLG) C00002=INCFRL
      ELSE IF(CSNO.EQ.3) THEN
      ALLOCATE(C00003(SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00003=INCFRL
      ELSE IF(CSNO.EQ.4) THEN
      ALLOCATE(C00004(SSZ(3)),STAT=ASTAT)
      IF(INCFLG) C00004=INCFRL
      ELSE IF(CSNO.EQ.5) THEN
      ALLOCATE(C00005(1),STAT=ASTAT)
      IF(INCFLG) C00005=INCFRL
      ELSE IF(CSNO.EQ.6) THEN
      ALLOCATE(C00006(1),STAT=ASTAT)
      IF(INCFLG) C00006=INCFRL
      ELSE IF(CSNO.EQ.7) THEN
      ALLOCATE(C00007(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00007=INCFRL
      ELSE IF(CSNO.EQ.8) THEN
      ALLOCATE(C00008(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00008=INCFRL
      ELSE IF(CSNO.EQ.9) THEN
      ALLOCATE(C00009(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00009=INCFRL
      ELSE IF(CSNO.EQ.10) THEN
      ALLOCATE(C00010(SSZ(2),SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00010=INCFRL
      ELSE IF(CSNO.EQ.11) THEN
      ALLOCATE(C00011(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00011=INCFRL
      ELSE IF(CSNO.EQ.12) THEN
      ALLOCATE(C00012(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00012=INCFRL
      ELSE IF(CSNO.EQ.13) THEN
      ALLOCATE(C00013(SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00013=INCFRL
      ELSE IF(CSNO.EQ.14) THEN
      ALLOCATE(C00014(SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00014=INCFRL
      ELSE IF(CSNO.EQ.15) THEN
      ALLOCATE(C00015(1),STAT=ASTAT)
      IF(INCFLG) C00015=INCFRL
      ELSE IF(CSNO.EQ.16) THEN
      ALLOCATE(C00016(1),STAT=ASTAT)
      IF(INCFLG) C00016=INCFRL
      ELSE IF(CSNO.EQ.17) THEN
      ALLOCATE(C00017(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00017=INCFRL
      ELSE IF(CSNO.EQ.18) THEN
      ALLOCATE(C00018(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00018=INCFRL
      ELSE IF(CSNO.EQ.19) THEN
      ALLOCATE(C00019(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00019=INCFRL
      ELSE IF(CSNO.EQ.20) THEN
      ALLOCATE(C00020(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00020=INCFRL
      ELSE IF(CSNO.EQ.21) THEN
      ALLOCATE(C00021(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00021=INCFRL
      ELSE IF(CSNO.EQ.22) THEN
      ALLOCATE(C00022(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00022=INCFRL
      ELSE IF(CSNO.EQ.23) THEN
      ALLOCATE(C00023(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00023=INCFRL
      ELSE IF(CSNO.EQ.24) THEN
      ALLOCATE(C00024(SSZ(2),SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00024=INCFRL
      ELSE IF(CSNO.EQ.25) THEN
      ALLOCATE(C00025(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00025=INCFRL
      ELSE IF(CSNO.EQ.26) THEN
      ALLOCATE(C00026(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00026=INCFRL
      ELSE IF(CSNO.EQ.27) THEN
      ALLOCATE(C00027(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00027=INCFRL
      ELSE IF(CSNO.EQ.28) THEN
      ALLOCATE(C00028(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00028=INCFRL
      ELSE IF(CSNO.EQ.29) THEN
      ALLOCATE(C00029(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00029=INCFRL
      ELSE IF(CSNO.EQ.30) THEN
      ALLOCATE(C00030(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00030=INCFRL
      ELSE IF(CSNO.EQ.31) THEN
      ALLOCATE(C00031(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00031=INCFRL
      ELSE IF(CSNO.EQ.32) THEN
      ALLOCATE(C00032(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00032=INCFRL
      ELSE IF(CSNO.EQ.33) THEN
      ALLOCATE(C00033(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00033=INCFRL
      ELSE IF(CSNO.EQ.34) THEN
      ALLOCATE(C00034(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00034=INCFRL
      ELSE IF(CSNO.EQ.35) THEN
      ALLOCATE(C00035(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00035=INCFRL
      ELSE IF(CSNO.EQ.36) THEN
      ALLOCATE(C00036(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00036=INCFRL
      ELSE IF(CSNO.EQ.37) THEN
      ALLOCATE(C00037(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00037=INCFRL
      ELSE IF(CSNO.EQ.38) THEN
      ALLOCATE(C00038(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00038=INCFRL
      ELSE IF(CSNO.EQ.39) THEN
      ALLOCATE(C00039(1),STAT=ASTAT)
      IF(INCFLG) C00039=INCFRL
      ELSE IF(CSNO.EQ.40) THEN
      ALLOCATE(C00040(1),STAT=ASTAT)
      IF(INCFLG) C00040=INCFRL
      ELSE IF(CSNO.EQ.41) THEN
      ALLOCATE(C00041(1),STAT=ASTAT)
      IF(INCFLG) C00041=INCFRL
      ELSE IF(CSNO.EQ.42) THEN
      ALLOCATE(C00042(1),STAT=ASTAT)
      IF(INCFLG) C00042=INCFRL
      ELSE IF(CSNO.EQ.43) THEN
      ALLOCATE(C00043(1),STAT=ASTAT)
      IF(INCFLG) C00043=INCFRL
      ELSE IF(CSNO.EQ.44) THEN
      ALLOCATE(C00044(SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00044=INCFRL
      ELSE IF(CSNO.EQ.45) THEN
      ALLOCATE(C00045(1),STAT=ASTAT)
      IF(INCFLG) C00045=INCFRL
      ELSE IF(CSNO.EQ.46) THEN
      ALLOCATE(C00046(1),STAT=ASTAT)
      IF(INCFLG) C00046=INCFRL
      ELSE IF(CSNO.EQ.47) THEN
      ALLOCATE(C00047(1),STAT=ASTAT)
      IF(INCFLG) C00047=INCFRL
      ELSE IF(CSNO.EQ.48) THEN
      ALLOCATE(C00048(1),STAT=ASTAT)
      IF(INCFLG) C00048=INCFRL
      ELSE IF(CSNO.EQ.49) THEN
      ALLOCATE(C00049(SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00049=INCFRL
      ELSE IF(CSNO.EQ.50) THEN
      ALLOCATE(C00050(1),STAT=ASTAT)
      IF(INCFLG) C00050=INCFRL
      ELSE IF(CSNO.EQ.51) THEN
      ALLOCATE(C00051(1),STAT=ASTAT)
      IF(INCFLG) C00051=INCFRL
      ELSE IF(CSNO.EQ.52) THEN
      ALLOCATE(C00052(1),STAT=ASTAT)
      IF(INCFLG) C00052=INCFRL
      ELSE IF(CSNO.EQ.53) THEN
      ALLOCATE(C00053(1),STAT=ASTAT)
      IF(INCFLG) C00053=INCFRL
      ELSE IF(CSNO.EQ.54) THEN
      ALLOCATE(C00054(1),STAT=ASTAT)
      IF(INCFLG) C00054=INCFRL
      ELSE IF(CSNO.EQ.55) THEN
      ALLOCATE(C00055(1),STAT=ASTAT)
      IF(INCFLG) C00055=INCFRL
      ELSE IF(CSNO.EQ.56) THEN
      ALLOCATE(C00056(SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00056=INCFRL
      ELSE IF(CSNO.EQ.57) THEN
      ALLOCATE(C00057(SSZ(2)),STAT=ASTAT)
      IF(INCFLG) C00057=INCFRL
      ELSE IF(CSNO.EQ.58) THEN
      ALLOCATE(C00058(SSZ(3)),STAT=ASTAT)
      IF(INCFLG) C00058=INCFRL
      ELSE IF(CSNO.EQ.59) THEN
      ALLOCATE(C00059(SSZ(3)),STAT=ASTAT)
      IF(INCFLG) C00059=INCFRL
      ELSE IF(CSNO.EQ.60) THEN
      ALLOCATE(C00060(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00060=INCFRL
      ELSE IF(CSNO.EQ.61) THEN
      ALLOCATE(C00061(SSZ(1)),STAT=ASTAT)
      IF(INCFLG) C00061=INCFRL
      END IF
      IF(ASTAT.NE.0) GOTO 24200
      RETURN
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
24200 CONTINUE
      CALL GPAERR(ASTAT,ERRMES)
      GOTO 15500
      END SUBROUTINE SSAL1C
      END MODULE employv2kp_c5
